(defun round-exp(a)
  (mod (expt a a) 10000000000))

(defun probl48 ()
  (mod (loop for i from 1 to 1000 sum (round-exp i)) 10000000000))